﻿Imports Tohto.Base.CommonConst
Imports Tohto.Web

Public Class CM0020P01
    Inherits Tohto.CMBasePage

#Region "定数"

    ''' <summary>
    ''' 画面名称
    ''' </summary>
    ''' <remarks></remarks>
    Private Const M_PAGE_NM As String = "ポータル"

#End Region

#Region "フォームロード"

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ' ページ名称をセット
        MyBase.SetPageName(M_PAGE_NM)

        Try
            'エラーメッセージリストの初期化
            Call ErrMessageInit()

            If Not IsPostBack Then

                '画面の初期化
                Call PageInit()
            End If
        Catch ex As Exception
            MyBase.ProcessException(ex, ComConst.EX_HANLDER_UI)
        End Try

    End Sub

#End Region

#Region "メソッド"

    ''' <summary>
    ''' エラーメッセージリストの初期化
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub ErrMessageInit()

        'クライアントにポープメッセージ共通をレジスト
        MyBase.RegistErrorCdToForm()
    End Sub

    ''' <summary>
    ''' 画面の初期化
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub PageInit()


        '共通ボタンのリセット
        Call MyBase.SetComBtnState(False, False, False, False)

        '端末情報の制御
        Call MyBase.SetTanmatuState(False, False)

        ' 画面のクリア
        Call PageClear()

    End Sub

    ''' <summary>
    ''' 画面のクリア
    ''' </summary>
    ''' <remarks></remarks>
    Private Sub PageClear()

        ' エラーメッセージ領域のクリア
        Call MyBase.ErrMsgAreaClear()
    End Sub
#End Region

End Class